home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 4 / The Arsenal Files 4 (Arsenal Computer).ISO / casm / au116-as.exe / UTIL / ATFILE.CPP < prev    next >
C/C++ Source or Header  |  1994-12-13  |  581b  |  24 lines
  1. #include "..\au.hpp"
  2. /*************************************************************************/
  3. STATUS process_at_file(AU *au, LISTPTR *process_list, char *file_name)
  4. {
  5.     HANDLE handle;
  6.     char string[FLENGTH];
  7.  
  8.     if (handle.open(au, file_name) != SUCCESS)
  9.     {
  10.         au_printf_error(au, "Unable to open @ file %s", file_name);
  11.         exit(1);
  12.     }
  13.     while (handle.read_word(string) != EOF)
  14.     {
  15.         ltrim(string);
  16.         if (string[0] == '@')
  17.             process_at_file(au, process_list, string+1);
  18.         if (*string != '\0')
  19.             process_list->add(string);
  20.     }
  21.     handle.close();
  22.     return SUCCESS;
  23. }
  24.